home *** CD-ROM | disk | FTP | other *** search
/ Hunter 2006 / Hunter 2006.iso / soft / sleipnir241.exe / {app} / scripts / ƒ†[ƒeƒBƒŠƒeƒB / ŒÅ’èƒY[ƒ€.vbs < prev    next >
Text File  |  2006-06-15  |  944b  |  36 lines
  1. '---------------------------------------------------------
  2. '  âYü[âÇüiî┼ÆΦö{ùªé┼ègæσüòÅkżüj ver.1.00
  3. '                               by âPâöâBâô
  4. '
  5. ' üªÄσé╔ô╟é▌é╞éΦè«ù╣îπÅêù¥ùpé┼é╖üBÆ╩Åφé═üuâYü[âÇ.vbsüvé╠
  6. '   ò√é≡é▓ùÿùpé¡é╛é│éóüB
  7. '
  8. ' #Ägùpû@
  9. '    zoomRateé╠Ælé≡üAöCê╙é╠ö{ùªé╔ÄwÆΦüB
  10. '    ôKùpé╡é╜éóURLé╔æ╬é╡ë║ïLé╠éµéñé╔ÄwÆΦé╡é─é¡é╛é│éóüB
  11. '    http://......./../<script=î┼ÆΦâYü[âÇ.vbs>
  12. '---------------------------------------------------------
  13. Option Explicit
  14.  
  15. Dim obj, document, id
  16. Set obj = CreateObject("Sleipnir.API")
  17. id = obj.GetDocumentID(obj.ActiveIndex)
  18. Set document = obj.GetDocumentObject(id)
  19.  
  20. ' âYü[âÇö{ùª
  21. Dim zoomRate      
  22. zoomRate = 1.25    ' üyé▒é▒é≡öCê╙é╠ö{ùªé╔É▌ÆΦé╡é─é¡é╛é│éóüz
  23.  
  24. ' âüâCâô
  25. If document Is Nothing Then
  26.     Call obj.MessageBox("Document é≡ì∞ɼé┼é½é▄é╣é±")
  27. Else 
  28.     If zoomRate <> "" Then
  29.         document.body.style.zoom=zoomRate
  30.     End If
  31.     
  32.     Set document = Nothing
  33. End If
  34.  
  35. Set obj = Nothing
  36.